home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000078_icon-group-sender _Fri Nov 13 16:45:14 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: from kingfisher.CS.Arizona.EDU (kingfisher.CS.Arizona.EDU [192.12.69.239])
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) with SMTP id QAA04587
  4.     for <icon-group-addresses@baskerville.CS.Arizona.EDU>; Fri, 13 Nov 1998 16:45:13 -0700 (MST)
  5. Received: by kingfisher.CS.Arizona.EDU (5.65v4.0/1.1.8.2/08Nov94-0446PM)
  6.     id AA07478; Fri, 13 Nov 1998 16:45:13 -0700
  7. Date: Fri, 13 Nov 1998 13:26:24 -0700
  8. From: swampler@noao.edu (Steve Wampler)
  9. Subject: Re: Coding multi-part patterns, as in SNOBOL
  10. To: icon-group@optima.CS.Arizona.EDU
  11. Message-Id: <swampler-9810132026.AA006410162@orpheus.gemini.edu>
  12. In-Reply-To: <Pine.LNX.3.95.981113120727.7576B-100000@smarty.smart.net>
  13. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  14. Status: RO
  15.  
  16. Mark Laster wrote:
  17. > One of my programs in ICON processes e-mail messages.  It does 
  18. > more than the snippet shown here, but for purposes of 
  19. > discussion, it removes the "e-mail quotation" marks from lines of 
  20. > text.  As you know, those marks in aggregate may be either: 
  21. > 
  22. >   (1) one or more angle brackets, starting at the left margin, or
  23. > 
  24. >   (2) one or more spaces, starting at the left margin, FOLLOWED 
  25. >       IMMEDIATELY BY one or more angle brackets.
  26. > 
  27. > To remove these "e-mail quote" marks, I needed about 20 lines, 
  28. > as shown below.
  29. > 
  30. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  31. > 
  32. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  33. > 
  34. > To perform the same operation in SNOBOL requires two lines (if 
  35. > that many):
  36. > 
  37. > ...
  38. >         qupat = pos(0) (span(" ") | null) span(">") rem . rec
  39. > ...
  40. > strip   rec qupat :s(strip)
  41. > ...
  42. > end
  43. > 
  44.  
  45. I haven't had a chance to test this (busy, busy), but something like
  46. the following should work in Icon (note how it's capitalized):
  47.  
  48.     procedure strip(s)
  49.         while s ?:= (tab(many('> ')), tab(0))
  50.         return s
  51.     end
  52.  
  53. This is even shorter than the SNOBOL you gave, but you can do something
  54. similar in SNOBOL, also.
  55.  
  56. --
  57. Steve Wampler - swampler@gemini.edu [Gemini 8m Telescopes Project (under AURA)]
  58. The gods that smiled at your birth are now laughing openly. (Fortune Cookie)
  59.